home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / IMAP5 / XIMAP5.dxr / 00270.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  924 b   |  36 lines
  1. on mouseDown
  2.   global gLstPeopleflashLight
  3.   hChickletState("flashlight on", "FLSHLITE.AIF")
  4.   set l8DoneP to getProp(gLstPeopleflashLight, 8)
  5.   set l9DoneP to getProp(gLstPeopleflashLight, 9)
  6.   set l10DoneP to getProp(gLstPeopleflashLight, 10)
  7.   set l11DoneP to getProp(gLstPeopleflashLight, 11)
  8.   set l12DoneP to getProp(gLstPeopleflashLight, 12)
  9.   set l13DoneP to getProp(gLstPeopleflashLight, 13)
  10.   if l8DoneP = 0 then
  11.     hVisibleSprite(1, 8, 8)
  12.   end if
  13.   if l9DoneP = 0 then
  14.     hVisibleSprite(1, 9, 9)
  15.   end if
  16.   if l10DoneP = 0 then
  17.     hVisibleSprite(1, 10, 10)
  18.   end if
  19.   if l11DoneP = 0 then
  20.     hVisibleSprite(1, 11, 11)
  21.   end if
  22.   if l12DoneP = 0 then
  23.     hVisibleSprite(1, 12, 12)
  24.   end if
  25.   if l13DoneP = 0 then
  26.     hVisibleSprite(1, 13, 13)
  27.   end if
  28.   updateStage()
  29.   repeat while the mouseDown
  30.     nothing()
  31.   end repeat
  32.   hChickletState("flashlight off", 0)
  33.   hVisibleSprite(0, 8, 13)
  34.   updateStage()
  35. end
  36.